MacWorld 1998 June/Macworld (1998-06).dmg/Shareware World/Utilities/Video/MVEMVC/MyVidEditor 2.1/Scripts Folder/Setup movie for AVI script

Text File | 1998-04-01 | 1.2 KB | 37 lines | [TEXT/ToyS]

on open (theItems)
    tell application "MyVidEditor©"
        activate
    end tell
    set isokay to true
    if isokay then
        script processmovieinfolder
            on open (theFile)
                set SourceName to theFile as string
                copy (SourceName & ".audio") to tempname1
                copy (SourceName & ".mrg") to tempname2
                copy (SourceName & ".flt") to tempname3
                with timeout of 100000 seconds
                    tell application "MyVidEditor©"
                        if Extract track AIFF from movie file SourceName to movie file tempname1 Compress AIFF yes then
                            -- extract audio
                            if Add track video from movie file SourceName with movie file tempname1 to movie file tempname2 then
                                --merge audio & video into next file
                                if Flatten movie file tempname2 to movie file tempname3 then
                                    --flatten it
                                    tell application "Finder"
                                        --have the finder clean up our temp files. This is optional so delete it if you want to keep them around
                                        delete file tempname1
                                        delete file tempname2
                                    end tell
                                end if
                            end if
                        end if

                    end tell
                end timeout
            end open
        end script
        walk folders theItems with script processmovieinfolder with using files
    end if
end open